-- 寻路算法
-- 若目标不可到达, 一个建议措施是
-- 将Can_Reach设为恒真, 得到最短路径
-- 再重新运行寻路, 得到的路径中截取可达到部分
generic
   with procedure Add_To_Path (Where : Point_Type); -- 越远的点越早加入路径
   with function Can_Reach (Where : Point_Type) return Boolean; -- 障碍判断
procedure Legend.Generic_Search_Path (
   Map    : Region_Type;
   From   : Point_Type;
   To     : Point_Type
   );
